Q 160 120 1000, 115, 8 8 7, 8 8 0 // ↑と書くと画面の真ん中に黄色い球を書きます。 // 各パラメータの意味は // Q X Y Z, r, R G B, R0 G0 B0 // // X Y Z 球の位置 // r 球の半径 (1 .. 180) // R G B 球の色 (拡散光) (0 .. 8) // R0 G0 B0 球の色 (環境光) (0 .. 10) // // BASIC の CIRCLE 文の3D 版のような感じです。 // Z 値が大きい程手前に表示されますが遠近感がなく球の大きさは変わりません。 // 色の値は高速化の為,1つ増えるごとに2倍の強さで指定したことになります。 // // 例 ! 赤玉 (何かキーを押してください) Q 50 50 1100, 10, 8 0 0, 0 0 0 // wait キーが押されるまで待つ wait ! 青玉 (何かキーを押してください) Q 100 50 1100, 10, 0 0 8, 0 0 0 wait ! 目玉 (ちょっと不気味) Q 60 150 1500, 50, 8 8 8, 0 0 0 Q 65 150 1515, 38, 5 5 4, 7 6 6 Q 70 150 1530, 24, 0 0 0, 0 0 0 wait // Q 60 150 1500, 60, 0 0 0, 0 0 0 ! 雲 Q 10 56 1800, 20, 7 7 7, 6 6 6 Q 30 53 1803, 30, 7 7 7, 6 6 6 Q 60 50 1808, 35, 7 7 7, 6 6 5 Q 90 53 1808, 32, 7 7 7, 6 6 4 Q 120 56 1803, 20, 7 7 7, 7 7 4 ! 雪 (ESCキーで中断) // 降ってる雪 Q 180 10 1800, 5, 8 8 8, 7 7 8 Q 190 150 1800, 5, 8 8 8, 7 7 8 Q 150 230 2090, 5, 8 8 8, 7 7 8 Q 210 60 1800, 5, 8 8 8, 7 7 8 Q 220 180 1800, 5, 8 8 8, 7 7 8 Q 230 30 1800, 5, 8 8 8, 7 7 8 Q 190 220 2100, 5, 8 8 8, 7 7 8 Q 250 50 1800, 5, 8 8 8, 7 7 8 Q 220 160 2200, 5, 8 8 8, 7 7 8 Q 270 20 1800, 5, 8 8 8, 7 7 8 Q 130 190 1800, 5, 8 8 8, 7 7 8 Q 280 90 1800, 5, 8 8 8, 7 7 8 Q 290 70 1800, 5, 8 8 8, 7 7 8 // 積もった雪 Q 180 380 2050, 160, 8 8 8, 7 7 8 Q 10 380 2020, 160, 8 8 8, 7 7 8 Q 80 380 2030, 160, 8 8 8, 7 7 8 Q 350 380 2060, 160, 8 8 8, 7 7 8 Q 240 380 2000, 160, 8 8 8, 7 7 8 Q 160 370 1920, 160, 8 8 8, 7 7 8 Q 50 370 1980, 160, 8 8 8, 7 7 8 Q 100 370 1910, 160, 8 8 8, 7 7 8 Q 330 370 1930, 160, 8 8 8, 7 7 8 Q 230 370 1950, 160, 8 8 8, 7 7 8 Q 180 360 1850, 160, 8 8 8, 7 7 8 Q 10 360 1820, 160, 8 8 8, 7 7 8 Q 80 360 1830, 160, 8 8 8, 7 7 8 Q 350 360 1860, 160, 8 8 8, 7 7 8 Q 240 360 1800, 160, 8 8 8, 7 7 8 // 木 Q 60 150 2000, 34, 8 8 8, 7 7 8 Q 60 140 2000, 32, 8 8 8, 7 7 8 Q 60 130 1999, 30, 8 8 8, 7 7 8 Q 60 120 1998, 28, 8 8 8, 7 7 8 Q 60 110 1996, 26, 8 8 8, 7 7 8 Q 60 100 1994, 24, 8 8 8, 7 7 8 Q 60 90 1992, 22, 8 8 8, 7 7 8 Q 60 80 1990, 20, 8 8 8, 7 7 8 Q 60 70 1988, 18, 8 8 8, 7 7 8 Q 60 60 1986, 16, 8 8 8, 7 7 8 Q 60 50 1984, 14, 8 8 8, 7 7 8 Q 60 40 1982, 12, 8 8 8, 7 7 8 Q 60 30 1980, 10, 8 8 8, 7 7 8 // 幹 Q 60 210 2000, 12, 6 5 4, 4 4 4 Q 60 205 2000, 10, 6 5 4, 4 4 4 Q 60 200 2000, 8, 6 5 4, 4 4 4 Q 60 195 2000, 8, 6 5 4, 4 4 4 Q 60 190 2000, 8, 6 5 4, 4 4 4 Q 60 185 2000, 8, 6 5 4, 4 4 4 Q 60 180 2000, 8, 6 5 4, 4 4 4 Q 60 175 2000, 8, 6 5 4, 4 4 4 ! 雪だるま // 体 Q 200 180 2016, 65, 8 8 8, 7 7 8 Q 206 180 2016, 65, 8 8 8, 7 7 8 // 頭 Q 200 80 2008, 50, 8 8 8, 7 7 8 Q 206 80 2008, 50, 8 8 8, 7 7 8 // 目 Q 190 70 2050, 10, 3 3 3, 0 0 0 Q 216 70 2050, 10, 3 3 3, 0 0 0 // 画面のセーブ [32k 320*240] save test.tif // そのほかの命令 // // 画面のロード [32k 320*240] のみ // 例 // load test.tif // // 画面のクリア // 例 // gcls // // デモ // 例 // demo // // ベンチマーク (初代で 2064 [秒*100]) // 例 // bench // // どういう順番で命令書いても構いませんが1行 1命令。 // 変数 制御文 等は使えません。 wait ! おわり exit